home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Nebula 2
/
Nebula Two.iso
/
SourceCode
/
Palettes
/
RotationSlider
/
RotationSliderWraps.psw
< prev
Wrap
Text File
|
1995-06-12
|
2KB
|
108 lines
/* Copyright 1993 by Don Yacktman. see accompanying source for */
/* pertinent licensing details. */
defineps PSdrawBezel(float grayLevel)
gsave
newpath 0.16 setlinewidth -44 5 translate
0.666 setgray
gsave
101 101 49 0 translate scale
newpath 0.5 0.5 0.5 0 360 arc stroke
grestore 0.08 setlinewidth 0 setgray
gsave
100 100 48 2 translate scale
newpath 0.5 0.5 0.5 0 360 arc stroke
grestore
gsave
100 100 48 0 translate scale
newpath 0.5 0.5 0.5 0 360 arc stroke
grestore
gsave
100 100 50 2 translate scale
newpath 0.5 0.5 0.5 0 360 arc stroke
grestore
0.333 setgray
gsave
100 100 49 1 translate scale
newpath 0.5 0.5 0.5 0 360 arc stroke
grestore
gsave
100 100 49 0 translate scale
newpath 0.5 0.5 0.5 0 360 arc stroke
grestore
gsave
100 100 50 1 translate scale
newpath 0.5 0.5 0.5 0 360 arc stroke
grestore
1 setgray
gsave
100 100 51 -1 translate scale
newpath 0.5 0.5 0.5 0 360 arc stroke
grestore
gsave
100 100 51 0 translate scale
newpath 0.5 0.5 0.5 0 360 arc stroke
grestore
gsave
100 100 50 -1 translate scale
newpath 0.5 0.5 0.5 0 360 arc stroke
grestore
grayLevel setgray
gsave
100 100 50 0 translate scale
newpath 0.5 0.5 0.5 0 360 arc stroke
grestore
grestore
endps
defineps PSdrawKnob(float angle)
gsave
angle dup cos 50 mul 50 add exch sin 50 mul 50 add translate
-4 1 translate 0 setgray
gsave
8 8 7 -2 translate scale
newpath 0.5 0.5 0.5 0 360 arc fill
grestore
gsave
8 8 7 0 translate scale
newpath 0.5 0.5 0.5 0 360 arc fill
grestore
gsave
8 8 5 -2 translate scale
newpath 0.5 0.5 0.5 0 360 arc fill
grestore
0.333 setgray
gsave
8 8 6 -1 translate scale
newpath 0.5 0.5 0.5 0 360 arc fill
grestore
gsave
8 8 6 0 translate scale
newpath 0.5 0.5 0.5 0 360 arc fill
grestore
gsave
8 8 5 -1 translate scale
newpath 0.5 0.5 0.5 0 360 arc fill
grestore
1 setgray
gsave
8 8 4 1 translate scale
newpath 0.5 0.5 0.5 0 360 arc fill
grestore
gsave
8 8 4 0 translate scale
newpath 0.5 0.5 0.5 0 360 arc fill
grestore
gsave
8 8 5 1 translate scale
newpath 0.5 0.5 0.5 0 360 arc fill
grestore
0.666 setgray
gsave
8 8 5 0 translate scale
newpath 0.5 0.5 0.5 0 360 arc fill
grestore
grestore
endps